source('callbacks.R')
dat = read.csv("cell-output.csv", skip=6, header = TRUE)
dat$run.counter = 1
selected_dat <- dat
plot_viz('X.step.', 'count.turtles', 'initial.number.wolves', 'initial.number.sheep', '')